Default for comint-get-old-input: take the current line, and discard
any initial text matching comint-prompt-regexp." (byte-code "Á Â `Ã Ä`\"))" [beg beginning-of-line comint-skip-prompt end-of-line buffer-substring] 6))
(defun comint-skip-prompt nil "\
Skip past the text matching regexp comint-prompt-regexp.
If this takes us past the end of the current line, don't skip at all." (byte-code "Â `)Ã ! ÄÅ!X ÄÅ!b)" [eol comint-prompt-regexp end-of-line looking-at match-end 0] 5))
(defun comint-after-pmark-p nil "\
Is point after the process output marker?" (byte-code "ÁÂÃp!!!`X)" [proc-pos marker-position process-mark get-buffer-process] 5))
(defun comint-simple-send (proc string) "\
Default function for sending to PROC input STRING.
This just sends STRING plus a newline. To override this,
set the hook COMINT-INPUT-SENDER." (byte-code "Â \"ÂÃ\"" [proc string comint-send-string "
"] 4))
(defun comint-bol (arg) "\
Goes to the beginning of line, then skips past the prompt, if any.
If a prefix argument is given (\\[universal-argument]), then no prompt skip
-- go straight to column 0.
The prompt skip is done by skipping text matching the regular expression
comint-prompt-regexp, a buffer local variable.
If you don't like this command, reset c-a to beginning-of-line
in your hook, comint-mode-hook." (interactive "P") (byte-code "ÁÂ ? Ã " [arg nil beginning-of-line comint-skip-prompt] 3))
Prompt the user with argument PROMPT. Read a single line of text
without echoing, and return it. Note that the keystrokes comprising
the text can still be recovered (temporarily) with \\[view-lossage]. This
may be a security bug for some applications. Optional argument STARS
causes input to be echoed with '*' characters on the prompt line." (byte-code "ÇÂÈÉ ;? ÈÊ!rËU! ÌU? ? Í !P 7ÎPÊ!ÊÈ! ," [echo-keystrokes cursor-in-echo-area t answ tem prompt stars 0 "" nil message 13 10 char-to-string "*"] 5))
(defun send-invisible (str) "\
Read a string without echoing, and send it to the process running
in the current buffer. A new-line is additionally sent. String is not
saved on comint input history list.
Security bug: your string can still be temporarily recovered with
\\[view-lossage]." (interactive "P") (byte-code "ÃÄp!?ÅÆ!&Ç ; ÈÉÂ\"\"ÇÊ\")" [proc str t nil get-buffer-process error "Current buffer has no process" comint-send-string comint-read-noecho "Non-echoed text: " "
"] 7))
(defvar comint-input-chunk-size 512 "\
*Long inputs send to comint processes are broken up into chunks of this size.
If your process is choking on big inputs, try lowering the value.")
(defun comint-send-string (proc str) "\
Send PROCESS the contents of STRING as input.
This is equivalent to process-send-string, except that long input strings
are broken up into chunks of size comint-input-chunk-size. Processes
are given a chance to output between chunks. This can help prevent processes
from hanging when you send them long inputs on some OS's." (byte-code " G ^Æ Ç
Sends to PROC the region delimited by START and END.
This is a replacement for process-send-region that tries to keep
your process from hanging on long inputs. See comint-send-string." (byte-code "ÃÄ
\"\"" [proc start end comint-send-string buffer-substring] 5))
(defun comint-kill-output nil "\
Kill all output from interpreter since last input." (interactive) (byte-code "ÂÃÄp!!Å \"bÆcÇ`\")" [pmark comint-last-input-end nil process-mark get-buffer-process kill-region "*** output flushed ***
" set-marker] 6))
(defun comint-show-output nil "\
Display start of this batch of interpreter output at top of window.
Also put cursor there." (interactive) (byte-code "Áb à ÄÅ `\"Æ " [comint-last-input-end nil backward-char beginning-of-line set-window-start selected-window end-of-line] 6))
(defun comint-interrupt-subjob nil "\
Interrupt the current subjob." (interactive) (byte-code "ÀÂÀ \"" [nil comint-ptyp interrupt-process] 3))
(defun comint-kill-subjob nil "\
Send kill signal to the current subjob." (interactive) (byte-code "ÀÂÀ \"" [nil comint-ptyp kill-process] 3))
(defun comint-quit-subjob nil "\
Send quit signal to the current subjob." (interactive) (byte-code "ÀÂÀ \"" [nil comint-ptyp quit-process] 3))
(defun comint-stop-subjob nil "\
Stop the current subjob.
WARNING: if there is no current subjob, you can end up suspending
the top-level process running in the buffer. If you accidentally do
this, use \\[comint-continue-subjob] to resume the process. (This
is not a problem with most shells, since they ignore this signal.)" (interactive) (byte-code "ÀÂÀ \"" [nil comint-ptyp stop-process] 3))
(defun comint-continue-subjob nil "\
Send CONT signal to process buffer's process group.
Useful if you accidentally suspend the top-level process." (interactive) (byte-code "ÀÂÀ \"" [nil comint-ptyp continue-process] 3))
(defun comint-kill-input nil "\
Kill all text from last stuff output by interpreter to point." (interactive) (byte-code "ÂÃÄp!!Å!` V Æ`\"*" [pmark p-pos nil process-mark get-buffer-process marker-position kill-region] 6))
(defun comint-delchar-or-maybe-eof (arg) "\
Delete ARG characters forward, or send an EOF to process if at end of buffer." (interactive "p") (byte-code "Ám  Ã!" [arg nil process-send-eof delete-char] 3))
